﻿Namespace Kasa.Cek
	Public Module Functions

		Function Liste(Token As Token, d1 As Date, d2 As Date) As Recordset
			Q("select a.tarih,b.bankakod,b.bankaadi,a.takas,a.cekno,a.cekmik")
			Q("from (select 'H' as takas,* from subebankacek")
			Q("union all select 'E' as takas,* from subebankacektakas) a")
			Q("left join banka b on a.bankakod = b.bankakod")
			Q("where tarih between @d1 and @d2")
			Return Token.OpenSQL("*", d1, d2)
		End Function

	End Module
End Namespace